/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / UserModifications / userTemplates.tcl

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 23 20 2d 2a 2d 54 63 | 6c 2d 2a 2d 0d 20 23 20 |## -*-Tc|l-*-. # |
|00000010| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000020| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000030| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000040| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000050| 23 23 23 0d 20 23 20 20 | 56 69 6e 63 65 27 73 20 |###. #  |Vince's |
|00000060| 41 64 64 69 74 69 6f 6e | 73 20 2d 20 61 6e 20 65 |Addition|s - an e|
|00000070| 78 74 65 6e 73 69 6f 6e | 20 70 61 63 6b 61 67 65 |xtension| package|
|00000080| 20 66 6f 72 20 41 6c 70 | 68 61 0d 20 23 20 0d 20 | for Alp|ha. # . |
|00000090| 23 20 20 46 49 4c 45 3a | 20 22 75 73 65 72 54 65 |#  FILE:| "userTe|
|000000a0| 6d 70 6c 61 74 65 73 2e | 74 63 6c 22 0d 20 23 20 |mplates.|tcl". # |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 20 63 72 65 61 74 | 65 64 3a 20 32 2f 38 2f |   creat|ed: 2/8/|
|000000e0| 39 37 20 7b 31 3a 30 37 | 3a 32 39 20 70 6d 7d 20 |97 {1:07|:29 pm} |
|000000f0| 0d 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. #     |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 6c 61 73 74 20 | 75 70 64 61 74 65 3a 20 |   last |update: |
|00000120| 31 36 2f 34 2f 39 38 20 | 7b 38 3a 34 37 3a 32 35 |16/4/98 |{8:47:25|
|00000130| 20 70 6d 7d 20 0d 20 23 | 20 20 41 75 74 68 6f 72 | pm} . #|  Author|
|00000140| 3a 20 56 69 6e 63 65 20 | 44 61 72 6c 65 79 0d 20 |: Vince |Darley. |
|00000150| 23 20 20 45 2d 6d 61 69 | 6c 3a 20 3c 64 61 72 6c |#  E-mai|l: <darl|
|00000160| 65 79 40 66 61 73 2e 68 | 61 72 76 61 72 64 2e 65 |ey@fas.h|arvard.e|
|00000170| 64 75 3e 0d 20 23 20 20 | 20 20 6d 61 69 6c 3a 20 |du>. #  |  mail: |
|00000180| 44 69 76 69 73 69 6f 6e | 20 6f 66 20 45 6e 67 69 |Division| of Engi|
|00000190| 6e 65 65 72 69 6e 67 20 | 61 6e 64 20 41 70 70 6c |neering |and Appl|
|000001a0| 69 65 64 20 53 63 69 65 | 6e 63 65 73 2c 20 48 61 |ied Scie|nces, Ha|
|000001b0| 72 76 61 72 64 20 55 6e | 69 76 65 72 73 69 74 79 |rvard Un|iversity|
|000001c0| 0d 20 23 20 20 20 20 20 | 20 20 20 20 20 4f 78 66 |. #     |     Oxf|
|000001d0| 6f 72 64 20 53 74 72 65 | 65 74 2c 20 43 61 6d 62 |ord Stre|et, Camb|
|000001e0| 72 69 64 67 65 20 4d 41 | 20 30 32 31 33 38 2c 20 |ridge MA| 02138, |
|000001f0| 55 53 41 0d 20 23 20 20 | 20 20 20 77 77 77 3a 20 |USA. #  |   www: |
|00000200| 3c 68 74 74 70 3a 2f 2f | 77 77 77 2e 66 61 73 2e |<http://|www.fas.|
|00000210| 68 61 72 76 61 72 64 2e | 65 64 75 2f 7e 64 61 72 |harvard.|edu/~dar|
|00000220| 6c 65 79 2f 3e 0d 20 23 | 20 20 0d 20 23 20 23 23 |ley/>. #|  . # ##|
|00000230| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000240| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000250| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000260| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000270| 23 0d 20 23 23 0d 0d 0d | 70 72 6f 63 20 74 5f 64 |#. ##...|proc t_d|
|00000280| 65 66 61 75 6c 74 20 7b | 20 63 6c 61 73 73 20 70 |efault {| class p|
|00000290| 61 72 65 6e 74 20 7d 20 | 7b 0d 09 72 65 74 75 72 |arent } |{..retur|
|000002a0| 6e 20 22 5c 72 a5 66 69 | 6c 65 20 62 6f 64 79 a5 |n "\r.fi|le body.|
|000002b0| 5c 72 22 0d 7d 0d 0d 70 | 72 6f 63 20 74 5f 6c 61 |\r".}..p|roc t_la|
|000002c0| 74 65 78 20 7b 63 6c 61 | 73 73 20 70 61 72 65 6e |tex {cla|ss paren|
|000002d0| 74 20 73 75 62 74 79 70 | 65 20 7d 20 7b 0d 09 23 |t subtyp|e } {..#|
|000002e0| 20 50 6f 73 73 69 62 6c | 65 20 27 73 75 62 74 79 | Possibl|e 'subty|
|000002f0| 70 65 73 27 20 61 72 65 | 3a 20 61 72 74 69 63 6c |pes' are|: articl|
|00000300| 65 20 62 6f 6f 6b 20 6c | 65 74 74 65 72 20 72 65 |e book l|etter re|
|00000310| 70 6f 72 74 20 73 6c 69 | 64 65 73 0d 09 73 65 74 |port sli|des..set|
|00000320| 20 74 20 22 25 26 4c 61 | 54 65 58 5c 72 5c 72 5c | t "%&La|TeX\r\r\|
|00000330| 5c 64 6f 63 75 6d 65 6e | 74 63 6c 61 73 73 5c 5b |\documen|tclass\[|
|00000340| a5 74 79 70 65 2d 73 69 | 7a 65 a5 5c 5d 5c 7b 24 |.type-si|ze.\]\{$|
|00000350| 73 75 62 74 79 70 65 5c | 7d 5c 72 22 0d 09 69 66 |subtype\|}\r"..if|
|00000360| 20 7b 24 73 75 62 74 79 | 70 65 20 21 3d 20 22 6c | {$subty|pe != "l|
|00000370| 65 74 74 65 72 22 20 7d | 20 7b 0d 09 09 61 70 70 |etter" }| {...app|
|00000380| 65 6e 64 20 74 20 22 5c | 5c 75 73 65 70 61 63 6b |end t "\|\usepack|
|00000390| 61 67 65 5c 7b a5 70 61 | 63 6b 61 67 65 20 6e 61 |age\{.pa|ckage na|
|000003a0| 6d 65 73 a5 5c 7d 5c 72 | 22 0d 09 09 61 70 70 65 |mes.\}\r|"...appe|
|000003b0| 6e 64 20 74 20 22 5c 5c | 62 65 67 69 6e 5c 7b 64 |nd t "\\|begin\{d|
|000003c0| 6f 63 75 6d 65 6e 74 5c | 7d 5c 72 5c 72 a5 42 6f |ocument\|}\r\r.Bo|
|000003d0| 64 79 20 6f 66 20 64 6f | 63 75 6d 65 6e 74 a5 5c |dy of do|cument.\|
|000003e0| 72 5c 72 22 0d 09 09 61 | 70 70 65 6e 64 20 74 20 |r\r"...a|ppend t |
|000003f0| 22 5c 5c 62 69 62 6c 69 | 6f 67 72 61 70 68 79 5c |"\\bibli|ography\|
|00000400| 7b a5 62 69 62 20 6e 61 | 6d 65 73 a5 5c 7d 5c 72 |{.bib na|mes.\}\r|
|00000410| 22 0d 09 09 61 70 70 65 | 6e 64 20 74 20 22 5c 5c |"...appe|nd t "\\|
|00000420| 62 69 62 6c 69 6f 67 72 | 61 70 68 79 73 74 79 6c |bibliogr|aphystyl|
|00000430| 65 5c 7b a5 62 69 62 73 | 74 79 6c 65 a5 5c 7d 5c |e\{.bibs|tyle.\}\|
|00000440| 72 22 0d 09 09 61 70 70 | 65 6e 64 20 74 20 22 5c |r"...app|end t "\|
|00000450| 5c 65 6e 64 5c 7b 64 6f | 63 75 6d 65 6e 74 5c 7d |\end\{do|cument\}|
|00000460| 5c 72 22 0d 09 09 72 65 | 74 75 72 6e 20 24 74 0d |\r"...re|turn $t.|
|00000470| 09 7d 0d 09 23 20 6c 65 | 74 74 65 72 3a 0d 09 61 |.}..# le|tter:..a|
|00000480| 70 70 65 6e 64 20 74 20 | 22 5c 72 5c 5c 61 64 64 |ppend t |"\r\\add|
|00000490| 72 65 73 73 5c 7b 25 5c | 72 5c 74 a5 79 6f 75 72 |ress\{%\|r\t.your|
|000004a0| 20 6e 61 6d 65 a5 5c 74 | 5c 5c 5c 5c 5c 74 5c 72 | name.\t|\\\\\t\r|
|000004b0| 22 0d 09 61 70 70 65 6e | 64 20 74 20 22 5c 74 a5 |"..appen|d t "\t.|
|000004c0| 79 6f 75 72 20 61 64 64 | 72 65 73 73 a5 5c 74 5c |your add|ress.\t\|
|000004d0| 5c 5c 5c 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 74 |\\\\r"..|append t|
|000004e0| 20 22 5c 74 a5 6d 6f 72 | 65 20 61 64 64 72 65 73 | "\t.mor|e addres|
|000004f0| 73 a5 5c 74 5c 5c 5c 5c | 5c 72 22 0d 09 61 70 70 |s.\t\\\\|\r"..app|
|00000500| 65 6e 64 20 74 20 22 5c | 74 a5 63 69 74 79 2d 73 |end t "\|t.city-s|
|00000510| 74 61 74 65 2d 7a 69 70 | a5 5c 72 5c 7d 5c 72 22 |tate-zip|.\r\}\r"|
|00000520| 0d 09 61 70 70 65 6e 64 | 20 74 20 22 5c 72 5c 5c |..append| t "\r\\|
|00000530| 64 61 74 65 5c 7b a5 64 | 61 74 65 a5 5c 7d 20 20 |date\{.d|ate.\}  |
|00000540| 25 20 6f 70 74 69 6f 6e | 61 6c 5c 72 22 0d 09 61 |% option|al\r"..a|
|00000550| 70 70 65 6e 64 20 74 20 | 22 5c 5c 73 69 67 6e 61 |ppend t |"\\signa|
|00000560| 74 75 72 65 5c 7b a5 73 | 69 67 6e 61 74 75 72 65 |ture\{.s|ignature|
|00000570| a5 5c 7d 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 74 |.\}\r"..|append t|
|00000580| 20 22 5c 72 5c 5c 62 65 | 67 69 6e 5c 7b 64 6f 63 | "\r\\be|gin\{doc|
|00000590| 75 6d 65 6e 74 5c 7d 5c | 72 22 0d 09 61 70 70 65 |ument\}\|r"..appe|
|000005a0| 6e 64 20 74 20 22 5c 72 | 5c 5c 62 65 67 69 6e 5c |nd t "\r|\\begin\|
|000005b0| 7b 6c 65 74 74 65 72 5c | 7d 5c 7b 25 5c 72 22 0d |{letter\|}\{%\r".|
|000005c0| 09 61 70 70 65 6e 64 20 | 74 20 22 5c 74 a5 61 64 |.append |t "\t.ad|
|000005d0| 64 72 65 73 73 65 65 27 | 73 20 6e 61 6d 65 a5 20 |dressee'|s name. |
|000005e0| 5c 5c 5c 5c 5c 74 5c 72 | 22 0d 09 61 70 70 65 6e |\\\\\t\r|"..appen|
|000005f0| 64 20 74 20 22 5c 74 a5 | 61 64 64 72 65 73 73 65 |d t "\t.|addresse|
|00000600| 65 27 73 20 61 64 64 72 | 65 73 73 a5 5c 74 5c 5c |e's addr|ess.\t\\|
|00000610| 5c 5c 5c 74 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |\\\t\r".|.append |
|00000620| 74 20 22 5c 74 a5 6d 6f | 72 65 20 61 64 64 72 65 |t "\t.mo|re addre|
|00000630| 73 73 65 65 27 73 20 61 | 64 64 72 65 73 73 a5 5c |ssee's a|ddress.\|
|00000640| 74 5c 5c 5c 5c 5c 72 22 | 0d 09 61 70 70 65 6e 64 |t\\\\\r"|..append|
|00000650| 20 74 20 22 5c 74 a5 61 | 64 64 72 65 73 73 65 65 | t "\t.a|ddressee|
|00000660| 27 73 20 63 69 74 79 2d | 73 74 61 74 65 2d 7a 69 |'s city-|state-zi|
|00000670| 70 a5 5c 72 22 0d 09 61 | 70 70 65 6e 64 20 74 20 |p.\r"..a|ppend t |
|00000680| 22 5c 7d 5c 72 5c 72 5c | 5c 6f 70 65 6e 69 6e 67 |"\}\r\r\|\opening|
|00000690| 5c 7b 44 65 61 72 20 a5 | 61 64 64 72 65 73 73 65 |\{Dear .|addresse|
|000006a0| 65 a5 2c 5c 7d 5c 72 22 | 0d 09 61 70 70 65 6e 64 |e.,\}\r"|..append|
|000006b0| 20 74 20 22 5c 72 a5 6c | 65 74 74 65 72 20 62 6f | t "\r.l|etter bo|
|000006c0| 64 79 a5 5c 72 5c 72 5c | 5c 63 6c 6f 73 69 6e 67 |dy.\r\r\|\closing|
|000006d0| 5c 7b 53 69 6e 63 65 72 | 65 6c 79 2c 5c 7d 5c 72 |\{Sincer|ely,\}\r|
|000006e0| 22 0d 09 61 70 70 65 6e | 64 20 74 20 22 5c 72 5c |"..appen|d t "\r\|
|000006f0| 5c 65 6e 63 6c 5c 7b a5 | a5 5c 7d 5c 72 5c 5c 63 |\encl\{.|.\}\r\\c|
|00000700| 63 5c 7b a5 a5 5c 7d 5c | 72 22 0d 09 61 70 70 65 |c\{..\}\|r"..appe|
|00000710| 6e 64 20 74 20 22 5c 72 | 5c 5c 65 6e 64 5c 7b 6c |nd t "\r|\\end\{l|
|00000720| 65 74 74 65 72 5c 7d 5c | 72 5c 72 22 0d 09 61 70 |etter\}\|r\r"..ap|
|00000730| 70 65 6e 64 20 74 20 22 | 5c 5c 65 6e 64 5c 7b 64 |pend t "|\\end\{d|
|00000740| 6f 63 75 6d 65 6e 74 5c | 7d 5c 72 22 0d 09 72 65 |ocument\|}\r"..re|
|00000750| 74 75 72 6e 20 24 74 0d | 7d 0d 0d 70 72 6f 63 20 |turn $t.|}..proc |
|00000760| 74 5f 68 74 6d 6c 20 7b | 63 6c 61 73 73 20 70 61 |t_html {|class pa|
|00000770| 72 65 6e 74 7d 20 7b 0d | 09 61 70 70 65 6e 64 20 |rent} {.|.append |
|00000780| 74 20 22 3c 48 54 4d 4c | 3e 5c 72 5c 72 3c 48 45 |t "<HTML|>\r\r<HE|
|00000790| 41 44 3e 5c 72 5c 72 3c | 54 49 54 4c 45 3e a5 74 |AD>\r\r<|TITLE>.t|
|000007a0| 69 74 6c 65 a5 3c 2f 54 | 49 54 4c 45 3e 5c 72 22 |itle.</T|ITLE>\r"|
|000007b0| 0d 09 61 70 70 65 6e 64 | 20 74 20 22 5c 72 5c 72 |..append| t "\r\r|
|000007c0| 3c 2f 48 45 41 44 3e 5c | 72 5c 72 3c 42 4f 44 59 |</HEAD>\|r\r<BODY|
|000007d0| 3e 5c 72 22 0d 09 61 70 | 70 65 6e 64 20 74 20 22 |>\r"..ap|pend t "|
|000007e0| 5c 72 a5 62 6f 64 79 a5 | 5c 72 5c 72 3c 2f 42 4f |\r.body.|\r\r</BO|
|000007f0| 44 59 3e 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 74 |DY>\r"..|append t|
|00000800| 20 22 5c 72 3c 2f 48 54 | 4d 4c 3e 22 0d 09 72 65 | "\r</HT|ML>"..re|
|00000810| 74 75 72 6e 20 24 74 0d | 7d 0d 0d 70 72 6f 63 20 |turn $t.|}..proc |
|00000820| 74 5f 63 70 70 5f 68 65 | 61 64 65 72 20 7b 20 63 |t_cpp_he|ader { c|
|00000830| 6c 61 73 73 20 70 61 72 | 65 6e 74 20 7d 20 7b 0d |lass par|ent } {.|
|00000840| 09 73 65 74 20 54 65 78 | 74 20 22 5c 72 5c 23 69 |.set Tex|t "\r\#i|
|00000850| 66 6e 64 65 66 20 5f 5b | 66 69 6c 65 3a 3a 70 72 |fndef _[|file::pr|
|00000860| 6f 6a 65 63 74 4e 61 6d | 65 5d 5f 24 7b 63 6c 61 |ojectNam|e]_${cla|
|00000870| 73 73 7d 5f 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |ss}_\r".|.append |
|00000880| 54 65 78 74 20 22 5c 23 | 64 65 66 69 6e 65 20 5f |Text "\#|define _|
|00000890| 5b 66 69 6c 65 3a 3a 70 | 72 6f 6a 65 63 74 4e 61 |[file::p|rojectNa|
|000008a0| 6d 65 5d 5f 24 7b 63 6c | 61 73 73 7d 5f 5c 72 5c |me]_${cl|ass}_\r\|
|000008b0| 72 5c 72 22 0d 09 61 70 | 70 65 6e 64 20 54 65 78 |r\r"..ap|pend Tex|
|000008c0| 74 20 22 23 69 6e 63 6c | 75 64 65 20 5c 22 24 7b |t "#incl|ude \"${|
|000008d0| 70 61 72 65 6e 74 7d 2e | 68 5c 22 5c 72 5c 72 22 |parent}.|h\"\r\r"|
|000008e0| 0d 09 61 70 70 65 6e 64 | 20 54 65 78 74 20 22 63 |..append| Text "c|
|000008f0| 6c 61 73 73 20 24 7b 63 | 6c 61 73 73 7d 3a 20 70 |lass ${c|lass}: p|
|00000900| 75 62 6c 69 63 20 24 7b | 70 61 72 65 6e 74 7d 20 |ublic ${|parent} |
|00000910| 5c 7b 5c 72 22 0d 09 61 | 70 70 65 6e 64 20 54 65 |\{\r"..a|ppend Te|
|00000920| 78 74 20 22 20 20 70 75 | 62 6c 69 63 3a 5c 72 22 |xt "  pu|blic:\r"|
|00000930| 0d 09 61 70 70 65 6e 64 | 20 54 65 78 74 20 22 5c |..append| Text "\|
|00000940| 74 24 7b 63 6c 61 73 73 | 7d 28 76 6f 69 64 29 3b |t${class|}(void);|
|00000950| 5c 72 22 0d 09 61 70 70 | 65 6e 64 20 54 65 78 74 |\r"..app|end Text|
|00000960| 20 22 5c 74 7e 24 7b 63 | 6c 61 73 73 7d 28 76 6f | "\t~${c|lass}(vo|
|00000970| 69 64 29 3b 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |id);\r".|.append |
|00000980| 54 65 78 74 20 22 20 20 | 70 72 6f 74 65 63 74 65 |Text "  |protecte|
|00000990| 64 3a 5c 72 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |d:\r\r".|.append |
|000009a0| 54 65 78 74 20 22 20 20 | 70 72 69 76 61 74 65 3a |Text "  |private:|
|000009b0| 5c 72 22 0d 09 61 70 70 | 65 6e 64 20 54 65 78 74 |\r"..app|end Text|
|000009c0| 20 22 5c 7d 3b 5c 72 22 | 0d 09 61 70 70 65 6e 64 | "\};\r"|..append|
|000009d0| 20 54 65 78 74 20 22 5c | 72 5c 23 65 6e 64 69 66 | Text "\|r\#endif|
|000009e0| 5c 72 22 0d 09 72 65 74 | 75 72 6e 20 24 54 65 78 |\r"..ret|urn $Tex|
|000009f0| 74 0d 09 73 65 74 20 64 | 6f 63 42 6f 64 79 0d 7d |t..set d|ocBody.}|
|00000a00| 0d 0d 70 72 6f 63 20 74 | 5f 63 70 70 5f 73 6f 75 |..proc t|_cpp_sou|
|00000a10| 72 63 65 20 7b 20 63 6c | 61 73 73 20 70 61 72 65 |rce { cl|ass pare|
|00000a20| 6e 74 20 7d 20 7b 0d 09 | 73 65 74 20 54 65 78 74 |nt } {..|set Text|
|00000a30| 20 22 5c 72 5c 23 69 6e | 63 6c 75 64 65 20 5c 22 | "\r\#in|clude \"|
|00000a40| 24 7b 63 6c 61 73 73 7d | 2e 68 5c 22 5c 72 5c 72 |${class}|.h\"\r\r|
|00000a50| 22 0d 7d 0d             |                         |".}.    |        |
+--------+-------------------------+-------------------------+--------+--------+